home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM B4 / PD-ROM B4.iso / Entertainment / Strategy / Robots / RoboWar / Vladd'sBots / Lestat / Lestat next >
Text File  |  1990-10-24  |  1KB  |  88 lines
  1. # Shawn Hunter
  2. randomdir:
  3.     random aim' store
  4.     random 150 > posx negx ife
  5.     random 150 > posy negy ife
  6.     shield 25 < BlackRat if
  7.     main jump
  8.  
  9. posx:
  10.     4 speedx' store
  11.     4 a' store
  12.     return
  13.  
  14. negx:
  15.     -4 speedx' store
  16.     -4 a' store
  17.     return
  18.  
  19. posy:
  20.     5 speedy' store
  21.     return
  22.  
  23. negy:
  24.     -5 speedy' store
  25.     return
  26.  
  27. main:
  28.     x 50 < right if
  29.     x 250 > left if
  30.     y 50 < down if
  31.     y 250 > up if
  32.     range 60 > ShootSub if
  33.     #Range 0 > Fire if
  34.     collision shootemup if
  35.     aim 11 + aim' store
  36.     5  shield' store    
  37.     main jump
  38.  
  39. right:
  40.     4 speedx' store
  41.     return
  42.  
  43. left:
  44.     -4 speedx' store
  45.     return
  46.  
  47. down:
  48.     5 speedy' store
  49.     return
  50.  
  51. up:
  52.     -5 speedy' store
  53.     return
  54.  
  55. shootemup:
  56.     range 0 > DoBlowEmUp Rotate2 ife
  57.     collision not exit if
  58.     shootemup jump
  59.  
  60. Rotate2:
  61.     aim 60 + aim' store
  62.     return
  63.  
  64. DoBlowEmUp:
  65.     150 fire' store
  66.     nop nop nop nop nop nop nop nop nop nop
  67.     nop nop nop nop nop
  68.     return
  69.  
  70. exit:
  71.     drop
  72.     return
  73.  
  74. ShootSub:
  75.     range 0 > 2 / energy fire' store
  76.     aim -10 + aim' store
  77.     2 /  energy fire' store
  78.     aim 20 + aim' store
  79.     2 /  energy fire' store
  80.     return
  81.  
  82. #Fire:
  83.    # 2 * energy missile' store
  84.    # return
  85.  
  86. BlackRat:
  87.     Shield 15 + shield' store
  88.     return